home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / MSGRANGE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-01  |  2.6 KB  |  95 lines
  1. VERSION 4.00
  2. Begin VB.Form msgrange 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Select Message Range"
  5.    ClientHeight    =   1320
  6.    ClientLeft      =   3390
  7.    ClientTop       =   2355
  8.    ClientWidth     =   3180
  9.    ControlBox      =   0   'False
  10.    Height          =   1725
  11.    Left            =   3330
  12.    LinkTopic       =   "Form2"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1320
  17.    ScaleWidth      =   3180
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   2010
  20.    Width           =   3300
  21.    Begin VB.CommandButton Cancel 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "Cancel"
  24.       Height          =   300
  25.       Left            =   1980
  26.       TabIndex        =   5
  27.       Top             =   615
  28.       Width           =   795
  29.    End
  30.    Begin VB.CommandButton Ok 
  31.       Caption         =   "OK"
  32.       Default         =   -1  'True
  33.       Height          =   285
  34.       Left            =   1980
  35.       TabIndex        =   4
  36.       Top             =   255
  37.       Width           =   810
  38.    End
  39.    Begin VB.TextBox Last 
  40.       Height          =   330
  41.       Left            =   600
  42.       TabIndex        =   3
  43.       Top             =   600
  44.       Width           =   1080
  45.    End
  46.    Begin VB.TextBox First 
  47.       Height          =   315
  48.       Left            =   600
  49.       TabIndex        =   2
  50.       Top             =   240
  51.       Width           =   1080
  52.    End
  53.    Begin VB.Label Label1 
  54.       Alignment       =   1  'Right Justify
  55.       Caption         =   "Last:"
  56.       Height          =   315
  57.       Index           =   1
  58.       Left            =   45
  59.       TabIndex        =   1
  60.       Top             =   615
  61.       Width           =   465
  62.    End
  63.    Begin VB.Label Label1 
  64.       Alignment       =   1  'Right Justify
  65.       Caption         =   "First:"
  66.       Height          =   315
  67.       Index           =   0
  68.       Left            =   45
  69.       TabIndex        =   0
  70.       Top             =   270
  71.       Width           =   450
  72.    End
  73. Attribute VB_Name = "msgrange"
  74. Attribute VB_Creatable = False
  75. Attribute VB_Exposed = False
  76. Option Explicit
  77. Private Sub Cancel_Click()
  78.     Form1.Flag = 0
  79.     Unload Me
  80. End Sub
  81. Private Sub First_GotFocus()
  82.     First.SelStart = 0
  83.     First.SelLength = Len(First.Text)
  84. End Sub
  85. Private Sub Last_GotFocus()
  86.     Last.SelStart = 0
  87.     Last.SelLength = Len(Last.Text)
  88. End Sub
  89. Private Sub Ok_Click()
  90.     Form1.Flag = 1
  91.     Form1.News1.FirstArticle = Val(First.Text)
  92.     Form1.News1.LastArticle = Val(Last.Text)
  93.     Unload Me
  94. End Sub
  95.